home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / msdos / css / source / palet2.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-19  |  3.8 KB  |  134 lines
  1.  
  2. #include <stdio.h>
  3. #include <string.h>
  4. #include <glib.h>
  5.  
  6.  
  7. void GDS_palette(unsigned int, unsigned char, unsigned char, unsigned char);
  8.  
  9. void rpalet(void)
  10. {
  11. unsigned int color;
  12. unsigned char red, green, blue;
  13.    
  14.    /* 黒 */
  15.    color = 0;  red = 0;   green = 0;    blue = 0;
  16.    GDS_palette(color, red, green, blue);
  17.  
  18.    /* 灰 */
  19.    color = 1;  red = 64;  green = 64;   blue = 64;
  20.    GDS_palette(color, red, green, blue);
  21.    
  22.    /* 青 (低輝度) */
  23.    color = 2;  red = 0;   green = 0;    blue = 128;
  24.    GDS_palette(color, red, green, blue);
  25.  
  26.    /* 青 (高輝度) */
  27.    color = 3;  red = 0;   green = 0;    blue = 255;
  28.    GDS_palette(color, red, green, blue);
  29.  
  30.    /* 赤 (低輝度) */
  31.    color = 4;  red = 128; green = 0;    blue = 0;
  32.    GDS_palette(color, red, green, blue);
  33.  
  34.    /* 赤 (高輝度) */
  35.    color = 5;  red = 255; green = 0;    blue = 0;
  36.    GDS_palette(color, red, green, blue);
  37.  
  38.    /* 紫 (低輝度) */
  39.    color = 6;  red = 128; green = 0;    blue = 128;
  40.    GDS_palette(color, red, green, blue);
  41.  
  42.    /* 紫 (高輝度) */
  43.    color = 7;  red = 255; green = 0;    blue = 255;
  44.    GDS_palette(color, red, green, blue);
  45.  
  46.    /* 緑 (低輝度) */
  47.    color = 8;  red = 0;   green = 128;  blue = 0;
  48.    GDS_palette(color, red, green, blue);
  49.  
  50.    /* 緑 (高輝度) */
  51.    color = 9;  red = 0;   green = 255;  blue = 0;
  52.    GDS_palette(color, red, green, blue);
  53.  
  54.    /* 水 (低輝度) */
  55.    color = 10; red = 0;   green = 128;   blue = 128;
  56.    GDS_palette(color, red, green, blue);
  57.  
  58.    /* 水 (高輝度) */
  59.    color = 11; red = 0;   green = 255;   blue = 255;
  60.    GDS_palette(color, red, green, blue);
  61.  
  62.    /* 黄 (低輝度) */
  63.    color = 12; red = 128; green = 128;   blue = 0;
  64.    GDS_palette(color, red, green, blue);
  65.  
  66.    /* 黄 (高輝度) */
  67.    color = 13; red = 255; green = 255;   blue = 0;
  68.    GDS_palette(color, red, green, blue);
  69.  
  70.    /* 白 (低輝度) */
  71.    color = 14; red = 128; green = 128;   blue = 128;
  72.    GDS_palette(color, red, green, blue);
  73.  
  74.    /* 白 (高輝度) */
  75.    color = 15; red = 255; green = 255;   blue = 255;
  76.    GDS_palette(color, red, green, blue);
  77. }
  78.  
  79. /* towns os palett for tifl.exe */
  80. /* TOWNS-OS上のPALETTと異なるためのR50-MSDOS用パレット変更プログラム */
  81. void tpalet2(void)
  82. {
  83. unsigned int color;
  84. unsigned char red, green, blue;
  85.  
  86.    color = 0;  red = 0;   green = 0;    blue = 0;
  87.    GDS_palette(color, red, green, blue);
  88.  
  89.    color = 1;  red = 128; green = 0;    blue = 0;
  90.    GDS_palette(color, red, green, blue);
  91.  
  92.    color = 2;  red = 0;   green = 128;  blue = 0;
  93.    GDS_palette(color, red, green, blue);
  94.  
  95.    color = 3; red = 128; green = 128;   blue = 0;
  96.    GDS_palette(color, red, green, blue);
  97.  
  98.    color = 4;  red = 0;   green = 0;    blue = 128;
  99.    GDS_palette(color, red, green, blue);
  100.  
  101.    color = 5;  red = 128; green = 0;    blue = 128;
  102.    GDS_palette(color, red, green, blue);
  103.  
  104.    color = 6; red = 0;   green = 128;   blue = 128;
  105.    GDS_palette(color, red, green, blue);
  106.  
  107.    color = 7; red = 128; green = 128;   blue = 128;
  108.    GDS_palette(color, red, green, blue);
  109.  
  110.    color = 8;  red = 64;  green = 64;   blue = 64;
  111.    GDS_palette(color, red, green, blue);
  112.  
  113.    color = 9;  red = 255; green = 0;    blue = 0;
  114.    GDS_palette(color, red, green, blue);
  115.  
  116.    color = 10;  red = 0;   green = 255;  blue = 0;
  117.    GDS_palette(color, red, green, blue);
  118.  
  119.    color = 11; red = 255; green = 255;   blue = 0;
  120.    GDS_palette(color, red, green, blue);
  121.  
  122.    color = 12;  red = 0;   green = 0;    blue = 255;
  123.    GDS_palette(color, red, green, blue);
  124.  
  125.    color = 13;  red = 255; green = 0;    blue = 255;
  126.    GDS_palette(color, red, green, blue);
  127.  
  128.    color = 14; red = 0;   green = 255;   blue = 255;
  129.    GDS_palette(color, red, green, blue);
  130.  
  131.    color = 15; red = 255; green = 255;   blue = 255;
  132.    GDS_palette(color, red, green, blue);
  133. }
  134.